primenumber using sub procedure in qbasic